I am a beginner taking a Perl programming course. We are trying to write a basic program for counting nucleotides in a DNA string. I'm getting syntax errors on the lines that have a single bracket on lines 28 & 70 and don't know why. It also reads that I have compilation errors. I have no idea where to start figuring that out. #

The purpose of this program is to count the number of nucleotides in a strand. Each protein is counted separately

# print "/n NOTE: Nucleotide counting /n"; #

use strict; # enforce variable declarations

use warnings; # enable compiler warnings

#

Display number of A,a,T,t,G,g,C,c, nucleotides in a word or sequence of letters.

#

my ($base) = ''; # an extracted letter from a string

my ($nuceotide_count) = 0 ; # the current position within the word

my ($position) = 0 ; # number of vowels in user-supplied word

my ($word) = ''; # word to be processed

my ($A_count) = 0 ; # of A nucleotides in the user-supplied sequence

my ($a_count) = 0 ; # of A nucleotides in the user-supplied sequence

my ($C_count) = 0 ; # of C nucleotides in the user-supplied sequence

my ($c_count) = 0 ; # of C nucleotides in the user-supplied sequence

my ($G_count) = 0 ; # of G nucleotides in the user-supplied sequence

my ($g_count) = 0 ; # of G nucleotides in the user-supplied sequence

my ($T_count) = 0 ; # of T nucleotides in the user-supplied sequence

my ($t_count) = 0 ; # of T nucleotides in the user-supplied sequence

word = (STDIN)

for ($position = 0);($position

if (($base eq 'a') or ($base eq 'A')) {

++$A_count;

} # end if

++$position;

if (($base eq 'T') or ($base eq 't'))

{

++$T_count;

} end if

++$position;

if (($base eq 'G') or ($base eq 'g'))

{

++$G_count;

} # end if

++$position;

if (($base eq 'C') or ($base eq 'c')) {

++$C_count;

} # end if

++$position;

} # end for

#

Display final results.

# print " \n The number of A or a neucleotides is: $A_count"; print " \n The number of T or t neucleotides is: $T_count"; print " \n The number of G or g neucleotides is: $G_count"; print " \n The number of C or c neucleotides is: $C_count";

print " \n\n Program completed successfully. \n" ; exit ;